100 REM* BRANCH CALC ---- SHAWN K. SMITH
105 PRINTCHR$(142)
110 REM  "CALCULATED GOTOS AND GOSUBS"
120 B=40960:K=57344:FORD=0TO8191:POKEB+D,PEEK(B+D):POKEK+D,PEEK(K+D):NEXT
130 POKE1,53:POKE64982,53
140 S=48981:FORD=STOS+6:READY:POKED,Y
150 NEXT:H=INT(S/256):POKE43170,H
160 POKE43169,S-H*256:D=21:LOOP=180
170 DATA 032,138,173,076,247,183,234
180 D=D-1:PRINT"OK!":IFDTHEN  GOTO LOOP